home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Outlook Express 4.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="4"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Outlook Express\Data Storage"
  5. "NAME"="Attachments/Messages"
  6. "VERSION"="1.21"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Attachments Path"
  9. "TEXT 2"="Messages Path"
  10. "DESCRIPTION 1"="#1: You can change the location where Outlook Express saves Attachment."
  11. "DESCRIPTION 2"="#2: Change the location where Outlook Express stores messages."
  12. "DESCRIPTION 3"="IMPORTANT: If you change the location, be sure to physically move all files in the previous location to the new location."
  13. "AUTHOR"="Ojatex@aol.com"
  14. "CONTACTURL"="http://members.aol.com/ojatex/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to Joren Combs [JorenCombs@hotmail.com] for the REG_EXPAND_SZ tip!"
  18.  
  19. 'Declaration of some constants
  20. sValPath=""
  21. sP1="HKCU\Software\Microsoft\Outlook Express\"
  22. sP2="HKCU\Identities\Last User ID"
  23. sV1="Save Attachment Path"
  24. sV2="Store Root"
  25.  
  26. 'Called when the Plugin is started
  27. SUB Plugin_Initialize
  28.  'OK, let's have a look if we are running IE5...
  29.  s=RegReadValue(sP2)
  30.  if IsEmpty(s)=false then
  31.     'OK - we have a value - check if we can find OE
  32.     sValPath="HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\"
  33.     If RegPathExists(sValPath) then
  34.        'OE5 !
  35.        sValPath=sValPath 
  36.     else
  37.        sValPath=sP1 
  38.     end if 
  39.  else
  40.     sValPath=sP1 
  41.  end if
  42.  
  43.  
  44.  s=RegReadValue(sValPath & sV1)
  45.  Call SetUIElement(1,s)
  46.  
  47.  s=RegReadValue(sValPath & sV2)
  48.  Call SetUIElement(2,s)
  49.  
  50.  
  51. END SUB
  52.  
  53. 'Called when the Plugin should validate the Data the user has entered
  54. SUB Plugin_CheckData(ElementIndex)
  55. END SUB
  56.  
  57. 'Called when the Plugin should apply the changes
  58. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  59.  s=GetUIElement(1)
  60.  Call RegWriteValue(sValPath & sV1,s,4)
  61.  
  62.  s=GetUIElement(2)
  63.  Call RegWriteValue(sValPath & sV2,s,4)
  64. END SUB
  65.  
  66. 'Called when the Plugin is about to be removed from memory
  67. SUB Plugin_Terminate
  68. END SUB
  69.